home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap01 / howto01 / ccerrors.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-18  |  1.6 KB  |  56 lines
  1. unit Ccerrors;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, Dialogs;
  7.  
  8. type
  9.   TBtnBottomDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     Bevel1: TBevel;
  12.     Image1: TImage;
  13.   private
  14.     { Private declarations }
  15.   public
  16.     { Public declarations }
  17.   end;
  18.  
  19. { This is (eventually) a custom error dialog }
  20. procedure ErrorDialog( TheErrorString : String );
  21. { This is a generic runtime error message function }
  22. function GetIOErrorMessage( TheCode : Integer ) : String;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure ErrorDialog( TheErrorString : String );
  29. begin
  30.   MessageDlg( TheErrorString , mtError , [mbok] , 0 );
  31. end;
  32.  
  33. { This is a generic runtime error message function }
  34. function GetIOErrorMessage( TheCode : Integer ) : String;
  35. begin
  36.   case TheCode of
  37.     2    : GetIOErrorMessage := 'File not found';
  38.     3    : GetIOErrorMessage := 'Path not found';
  39.     4    : GetIOErrorMessage := 'Too many open files';
  40.     5    : GetIOErrorMessage := 'File access denied';
  41.     6    : GetIOErrorMessage := 'Invalid file handle';
  42.     12    : GetIOErrorMessage := 'Invalid file access code';
  43.     15    : GetIOErrorMessage := 'Invalid drive number';
  44.     16  : GetIOErrorMessage := 'Cannot remove current directory';
  45.     17    : GetIOErrorMessage := 'Cannot rename across drives';
  46.     100    : GetIOErrorMessage := 'Disk read error';
  47.     101    : GetIOErrorMessage := 'Disk write error';
  48.     102    : GetIOErrorMessage := 'File not assigned';
  49.     103    : GetIOErrorMessage := 'File not open';
  50.     104    : GetIOErrorMessage := 'File not open for input';
  51.     105    : GetIOErrorMessage := 'File not open for output';
  52.   end;
  53. end;
  54.  
  55. end.
  56.